1 REM********************************** 2 REM* ** 3 REM* OPCODE....BY PAUL RATHBONE. ** 4 REM* ** 5 REM* FOR COMMODORE DISK USER ** 6 REM* ** 7 REM* COPYRIGHT JULY 1988 ** 8 REM********************************** 9 REM********************************** 10 IF A=0 THEN A=1:LOAD"OP",8,1 15 DIM YE$(51):CLOSE1:OPEN1,4 20 GOSUB 12000:REM************ARRAYS*** 25 LX=0:GOSUB4000 30 GOSUB9200:GOSUB7900:GOSUB7300:REM*CLS******SCR/PRT*** 40 IF PR$="P" THEN GOSUB5400 100 GOSUB9200:FOR Y=1 TO 7 110 ON Y GOSUB 1000,1100,1200,1300,1400,1500,1600 120 GOSUB 7200:REM**************WAIT*** 130 GOSUB 9200:REM***************CLS*** 140 NEXT Y 150 GOSUB 6400 160 IF ME=1 THEN GOSUB5800:ME=0 170 IF ME=2 THEN GOSUB6600:ME=0 180 IF ME=3 THEN GOTO25 190 IF ME=4 THEN SYS64738 200 GOTO150 1000 GOSUB 5600:REM******HEADER(LAX)*** 1010 LL=10000:AD=49955:POKE(AD+3),198 1020 FOR X=1 TO 7 1030 GOSUB8500:REM**********LINE NO.*** 1040 ON X GOSUB 10000,10010,10020,10030,10040,10050,10060 1050 GOSUB7000:REM******PROCESS VALS*** 1060 OP$=LAX$(X,1):GOSUB7500 1070 GOSUB5200:REM********PRINT VALS*** 1080 NEXTX:IF PR$="P" THENPRINT#1,"" 1090 RETURN 1100 GOSUB5600:REM*******HEADER(AS0)*** 1110 LL=10100:POKE(AD+2),175 1120 FORX=1 TO 7 1130 GOSUB8500:REM**********LINE NO.*** 1140 ON X GOSUB 10100,10110,10120,10130,10140,10150,10160 1150 GOSUB7100:REM****PROCESS VALS**** 1160 OP$=ASO$(X,1):GOSUB7500 1170 GOSUB5000:REM********PRINT VALS*** 1180 NEXTX:IF PR$="P" THENPRINT#1,"" 1190 RETURN 1200 GOSUB5600:REM*******HEADER(RLA)*** 1210 LL=10200 1212 IF CA$="S" THEN POKE (AD+2),3 1216 IF CA$="C" THEN POKE (AD+2),2 1220 FORX=1 TO 8 1230 GOSUB8500:REM**********LINE NO.*** 1240 ON X GOSUB 10200,10210,10220,10230,10240,10250,10260,10270 1250 GOSUB7100:REM******PROCESS VALS*** 1260 OP$=RLA$(X,1):GOSUB7500 1270 GOSUB5000:REM********PRINT VALS*** 1280 NEXTX:IF PR$="P" THENPRINT#1,"" 1290 RETURN 1300 GOSUB5600:REM*******HEADER(INS)*** 1310 LL=10300 1312 IF CA$="S" THEN POKE (AD+2),32 1316 IF CA$="C" THEN POKE (AD+2),31 1320 FORX=1 TO 7 1330 GOSUB8500:REM**********LINE NO.*** 1340 ON X GOSUB 10300,10310,10320,10330,10340,10350,10360 1350 GOSUB7100:REM******PROCESS VALS*** 1360 OP$=INS$(X,1):GOSUB7500 1370 GOSUB5000:REM********PRINT VALS*** 1380 NEXTX:IF PR$="P" THENPRINT#1,"" 1390 RETURN 1400 GOSUB5600:REM*******HEADER(LSE)*** 1410 LL=10400:POKE(AD+2),45 1420 FORX=1 TO 7 1430 GOSUB8500:REM**********LINE NO.*** 1440 ON X GOSUB 10400,10410,10420,10430,10440,10450,10460 1450 GOSUB7100:REM******PROCESS VALS*** 1460 OP$=LSE$(X,1):GOSUB7500 1470 GOSUB5000:REM********PRINT VALS*** 1480 NEXTX:IF PR$="P" THENPRINT#1,"" 1490 RETURN 1500 GOSUB5600:REM*******HEADER(RRA)*** 1510 LL=10500 1512 IF CA$="S" THEN POKE (AD+2),178 1516 IF CA$="C" THEN POKE (AD+2),50 1520 FORX=1 TO 7 1530 GOSUB8500:REM****LINE NO.**** 1540 ON X GOSUB 10500,10510,10520,10530,10540,10550,10560 1550 GOSUB7100:REM******PROCESS VALS*** 1560 OP$=RRA$(X,1):GOSUB7500 1570 GOSUB5000:REM********PRINT VALS*** 1580 NEXTX:IF PR$="P" THENPRINT#1,"" 1590 RETURN 1600 GOSUB5600:REM******HEADER(AXS+)*** 1610 LL=10600:POKE(AD+2),5 1620 FORX=1 TO 8 1630 GOSUB8500:REM**********LINE NO.*** 1640 ON X GOSUB 10600,10610,10620,10630,10640,10650,10660,10670 1650 GOSUB7100:REM******PROCESS VALS*** 1660 OP$=AXS$(X,1):GOSUB7500 1670 GOSUB5000:REM********PRINT VALS*** 1680 NEXTX:IF PR$="P" THENPRINT#1,"" 1690 RETURN 4000 REM*************SET/CLEAR CARRY*** 4010 GOSUB9200 4020 PRINT" "; 4030 PRINTCHR$(18);"C";CHR$(146);"LEAR CARRY?";:IF CA$="C" THENPRINT"_"; 4035 PRINT:PRINT 4040 PRINT" OR":PRINT 4050 PRINT" "; 4060 PRINTCHR$(18);"S";CHR$(146);"ET CARRY ";:IF CA$="S" THENPRINT"_"; 4070 GET CA$:IFCA$=""THEN4070 4080 IF CA$="S" THEN POKE49972,56:POKE49984,56:RETURN 4090 IF CA$="C" THEN POKE49972,24:POKE49984,24:RETURN 4095 GOTO4070 4100 REM*******PRINT CARRY CLEAR/SET*** 4110 PRINT"[145][145]"; 4120 IF CA$="C" THEN PRINT"CARRY CLEAR":PRINT:PRINT:RETURN 4130 IF CA$="S" THEN PRINT"CARRY SET":PRINT:PRINT:RETURN 4140 PRINT"ERR":PRINT:PRINT:RETURN 5000 REM***(REST)******OUTPUT VALUES*** 5010 CC=0:GOSUB 5100 5020 PRINTOP$; 5030 CC=14:GOSUB 5100 5040 PRINTFL$; 5050 CC=22:GOSUB 5100 5060 PRINTAC; 5070 CC=33:GOSUB 5100 5080 PRINTEX:IF PR$="P" THEN GOSUB5700 5090 RETURN 5100 REM***********SET CURSOR COLUMN*** 5110 POKE780,0:POKE782,CC 5120 POKE 781,PEEK(214) 5130 SYS (58636) 5140 RETURN 5200 REM***(LAX)*******OUTPUT VALUES*** 5210 CC=0:GOSUB 5100 5220 PRINTOP$; 5230 CC=14:GOSUB 5100 5240 PRINTFL$; 5250 CC=20:GOSUB 5100 5260 PRINTAC; 5270 CC=25:GOSUB 5100 5280 PRINTA1; 5290 CC=33:GOSUB 5100 5300 PRINTEX:IF PR$="P" THEN GOSUB5500 5310 RETURN 5400 REM**************PRINTER HEADER*** 5405 IF CA$="S" THEN PRINT#1,"",,,"CARRY SET" 5410 IF CA$="C" THEN PRINT#1,"",,,"CARRY CLEAR" 5420 PRINT#1,"", 5430 PRINT#1,"OPCODE", 5440 PRINT#1,"O.K.?", 5450 PRINT#1,"ACTUAL", 5460 PRINT#1,"TARGET" 5470 PRINT#1,"****************************************************************"; 5480 PRINT#1,"**********" 5490 RETURN 5500 REM****(LAX)*****PRINTER OUTPUT*** 5510 PRINT#1," ";OP$, 5520 PRINT#1," ";FL$, 5530 PRINT#1," ";AC; 5540 PRINT#1," ";A1, 5550 PRINT#1,EX 5560 RETURN 5600 REM***************SCREEN HEADER*** 5610 GOSUB9200:GOSUB4100 5620 PRINT" OPCODE O.K.? ACTUAL TARGET" 5630 RETURN 5700 REM****(REST)****PRINTER OUTPUT*** 5710 PRINT#1," ";OP$, 5720 PRINT#1," ";FL$, 5730 PRINT#1," ";AC, 5740 PRINT#1,EX 5750 RETURN 5800 REM**OPERATIVE CODE PRINT********* 5810 GOSUB9200 5820 GOSUB7950 5830 GOSUB7300 5840 IF PR$="S" THEN GOSUB7600:GOSUB7700:RETURN 5850 IF PR$="P" THEN GOSUB7800:GOSUB7850:GOSUB7600:GOSUB7700 5860 RETURN 6000 REM*ASS'R NOTATION HEADER (SCR)*** 6010 PRINT" INSTRUCTION ASSEMBLER NOTATION" 6020 RETURN 6100 REM***(SCR)INSTR & ASR NOTATION*** 6105 GOSUB9200:GOSUB6000 6110 FOR X=1 TO 7 6120 PRINT" ";LAX$(X,3);" ";LAX$(X,2) 6130 NEXTX:PRINT"" 6135 GOSUB7200:GOSUB9200:GOSUB6000 6140 FOR X=1 TO 7 6150 PRINT" ";ASO$(X,3);" ";ASO$(X,2) 6160 NEXTX:PRINT"" 6165 GOSUB7200:GOSUB9200:GOSUB6000 6170 FOR X=1 TO 8 6180 PRINT" ";RLA$(X,3);" ";RLA$(X,2) 6190 NEXTX:PRINT"" 6195 GOSUB7200:GOSUB9200:GOSUB6000 6200 FOR X=1 TO 7 6210 PRINT" ";INS$(X,3);" ";INS$(X,2) 6220 NEXTX:PRINT"" 6225 GOSUB7200:GOSUB9200:GOSUB6000 6230 FOR X=1 TO 7 6240 PRINT" ";LSE$(X,3);" ";LSE$(X,2) 6250 NEXTX:PRINT"" 6255 GOSUB7200:GOSUB9200:GOSUB6000 6260 FOR X=1 TO 7 6270 PRINT" ";RRA$(X,3);" ";RRA$(X,2) 6280 NEXTX:PRINT"" 6285 GOSUB7200:GOSUB9200:GOSUB6000 6290 FOR X=1 TO 8 6300 PRINT" ";AXS$(X,3);" ";AXS$(X,2) 6310 NEXTX:PRINT"" 6315 GOSUB7200 6320 RETURN 6400 REM***************MENU - WORKING CODES/ALL CODES PLUS ASSEMBLER NOTATION*** 6410 GOSUB9200 6420 PRINT"[145][145]":CC=16:GOSUB5100 6430 PRINTCHR$(18); 6440 PRINT"MENU";CHR$(146);"" 6450 PRINT" 1. LIST SUCCESSFUL CODES.":PRINT 6460 PRINT" 2. LIST ALL CODES + HEX VALUES.":PRINT 6470 PRINT" 3. RESTART PROGRAM.":PRINT 6480 PRINT" 4. EXIT & INITIALISE" 6490 GET ME$:IF ME$="" THEN6490 6500 ME=VAL(ME$):IF ME<1 THEN 6490 6510 IF ME>4 THEN 6490 6520 RETURN 6600 REM**?ALL CODES & HEX VALS" 6610 [141] 9200 6620 [141] 9000 6630 [141] 7300 6640 [139] PR$[178]"S" [167] [141]6000:[141]6100:[142] 6650 [139] PR$[178]"P" [167] [141]6700:[141]6000:[141]6100 6660 [142] 6700 [143]******(PRT) HEADER CODES/HEX*** 6710 [152]1,"","INSTRUCTION",,"ASSEMBLER NOTATION" 6720 [129] X[178]1 [164] 7 6730 [152]1,"",LAX$(X,1),,LAX$(X,2) 6740 [130]X:[152]1,"" 6750 [129] X[178]1 [164] 7 6760 [152]1,"",ASO$(X,1),,ASO$(X,2) 6770 [130]X:[152]1,"" 6780 [129] X[178]1 [164] 8 6790 [152]1,"",RLA$(X,1),,RLA$(X,2) 6800 [130]X:[152]1,"" 6810 [129] X[178]1 [164] 7 6820 [152]1,"",INS$(X,1),,INS$(X,2) 6830 [130]X:[152]1,"" 6840 [129] X[178]1 [164] 7 6850 [152]1,"",LSE$(X,1),,LSE$(X,2) 6860 [130]X:[152]1,"" 6870 [129] X[178]1 [164] 7 6880 [152]1,"",RRA$(X,1),,RRA$(X,2) 6890 [130]X:[152]1,"" 6900 [129] X[178]1 [164] 8 6910 [152]1,"",AXS$(X,1),,AXS$(X,2) 6920 [130]X:[152]1,"" 6930 [142] 7000 [143]*****PROCESSING ROUTINE(LAX)*** 7010 [139] [194](AD)[178]1 [167] FL$[178]"YES":[137]7040 7020 [139] [194](AD)[178]0 [167] FL$[178]"NO ":[137]7040 7030 FL$[178]"ERR" 7040 EX[178][194](AD[170]3) 7050 AC[178][194](AD[170]1) 7060 A1[178][194](AD[170]2) 7070 [142] 7100 [143]****PROCESSING ROUTINE(REST)*** 7110 [139] [194](AD)[178]1 [167] FL$[178]"YES":[137]7140 7120 [139] [194](AD)[178]0 [167] FL$[178]"NO ":[137]7140 7130 FL$[178]"ERR" 7140 AC[178][194](AD[170]1) 7150 EX[178][194](AD[170]2) 7160 [142] 7200 [143]*WAIT FOR KEY & PRINT MESSAGE** 7210 [153][199](18); 7220 [151]780,0:[151]781,23:[151]782,9:[158]65520 7230 [153]"PRESS SPACE FOR MORE"; 7240 [153][199](146); 7250 [161]IK$:[139] IK$[179][177]" " [167]7250 7260 [153][199](146); 7270 [151]780,0:[151]781,23:[151]782,9:[158]65520 7280 [153]" "; 7290 [142] 7300 [143]***********SCREEN OR PRINTER*** 7320 [153]" "; 7330 [153][199](18);"S"; 7340 [153][199](146);"CREEN OR "; 7350 [153][199](18);"P"; 7360 [153][199](146);"RINTER ?" 7370 [161]PR$:[139] PR$[178]"" [167]7370 7380 [139] PR$[178]"S" [167] [142] 7390 [139] PR$[178]"P" [167] [137]7400 7395 [137] 7370 7400 [141]9200 7410 [153]""; 7420 [153]" PLEASE ENSURE THAT YOUR PRINTER" 7430 [153]" IS SWITCHED ON AND READY." 7440 [153]" PRESS ANY KEY." 7480 [161]IX$:[139] IX$[178]"" [167]7480 7490 [142] 7500 [143]********GET SUCCESSFUL TESTS*** 7510 [139] FL$[178]"NO " [167] [142] 7520 YE$(LX)[178]OP$ 7530 LX[178]LX[170]1 7540 [142] 7600 [143]*(SCR)*HEADER FOR POS' TESTS*** 7610 [141] 9200 7620 [153]""; 7630 [153]" OPERATIVE CODES" 7640 [142] 7700 [143]**(SCR)******PRINT POS TESTS*** 7710 [139] CA$[178]"C" [167] [153]" CARRY CLEAR":[153] 7720 [139] CA$[178]"S" [167] [153]" CARRY SET":[153] 7730 [153] 7740 [129] ZA[178]0 [164] LX 7750 [153]" ";YE$(ZA) 7760 [130] ZA:[141]7200 7770 [142] 7800 [143]*(PRT)*HEADER FOR POS' TESTS*** 7810 [152]1," OPERATIVE OPCODES" 7820 [139] CA$[178]"C" [167] [152]1," (CARRY CLEAR)" 7830 [139] CA$[178]"S" [167] [152]1," (CARRY SET)" 7840 [153]:[142] 7850 [143]**(PRT)******PRINT POS TESTS*** 7860 [129] ZA[178]0 [164] LX 7870 [152]1," ";YE$(ZA) 7880 [130] ZA 7890 [142] 7900 [143]********PRINT"FULL RES'TABLE*** 7910 PRINT" FULL RESULT TABLE" 7920 RETURN 7950 REM*****?"OPERATIVE CODES" 7960 PRINT" SUCCESSFUL CODES" 7970 RETURN 8500 REM***************PRINT LNE NO.*** 8510 LI=LL+(X*10)-10 8520 PRINTLI; 8530 RETURN 9000 REM*****?"CODES & VALUES" 9010 PRINT" ALL CODES & VALUES" 9020 RETURN 9200 REM*********CLEAR SCREEN & HOME*** 9210 PRINTCHR$(19);CHR$(147); 9230 PRINT"";:RETURN 10000 SYS49152:RETURN:REM LAX1 10010 SYS49167:RETURN:REM LAX2 10020 SYS49184:RETURN:REM LAX3 10030 SYS49201:RETURN:REM LAX4 10040 SYS49215:RETURN:REM LAX5 10050 SYS49231:RETURN:REM LAX6 10060 SYS49250:RETURN:REM LAX7 10100 SYS49269:RETURN:REM ASO1 10110 SYS49282:RETURN:REM ASO2 10120 SYS49297:RETURN:REM ASO3 10130 SYS49312:RETURN:REM ASO4 10140 SYS49324:RETURN:REM ASO5 10150 SYS49338:RETURN:REM ASO6 10160 SYS49355:RETURN:REM ASO7 10200 SYS49372:RETURN:REM RLA1 10210 SYS49385:RETURN:REM RLA2 10220 SYS49400:RETURN:REM RLA3 10230 SYS49415:RETURN:REM RLA4 10240 SYS49427:RETURN:REM RLA5 10250 SYS49441:RETURN:REM RLA6 10260 SYS49458:RETURN:REM RLA7 10270 SYS49475:RETURN:REM RLA8 10300 SYS49489:RETURN:REM INS1 10310 SYS49499:RETURN:REM INS2 10320 SYS49514:RETURN:REM INS3 10330 SYS49529:RETURN:REM INS4 10340 SYS49541:RETURN:REM INS5 10350 SYS49555:RETURN:REM INS6 10360 SYS49572:RETURN:REM INS7 10400 SYS49589:RETURN:REM LSE1 10410 SYS49602:RETURN:REM LSE2 10420 SYS49617:RETURN:REM LSE3 10430 SYS49632:RETURN:REM LSE4 10440 SYS49644:RETURN:REM LSE5 10450 SYS49658:RETURN:REM LSE6 10460 SYS49675:RETURN:REM LSE7 10500 SYS49692:RETURN:REM RRA1 10510 SYS49705:RETURN:REM RRA2 10520 SYS49720:RETURN:REM RRA3 10530 SYS49735:RETURN:REM RRA4 10540 SYS49747:RETURN:REM RRA5 10550 SYS49761:RETURN:REM RRA6 10560 SYS49778:RETURN:REM RRA7 10600 SYS49795:RETURN:REM AXS1 10610 SYS49817:RETURN:REM AXS2 10620 SYS49831:RETURN:REM AXS3 10630 SYS49847:RETURN:REM AXS4 10640 POKEAD+2,0:SYS49874:RETURN:REM STZ1 10650 POKEAD+2,2:SYS49892:RETURN:REM ALR1 10660 POKEAD+2,128:SYS49903:RETURN:REM SAX1 10670 POKEAD+2,5:SYS49917:RETURN:REM TAD1 12000 LAX$(1,1)="LAX ABS " 12005 LAX$(1,2)=".BYT $AF,$FE,$02" 12007 LAX$(1,3)="LAX $02FE " 12010 LAX$(2,1)="LAX ABS,X " 12015 LAX$(2,2)=".BYT $DF,FB,$02" 12017 LAX$(2,3)="LAX $02FB,X" 12020 LAX$(3,1)="LAX ABS,Y " 12025 LAX$(3,2)=".BYT $DB,$FB,$02" 12027 LAX$(3,3)="LAX $02FB,Y" 12030 LAX$(4,1)="LAX ZERO " 12035 LAX$(4,2)=".BYT $C7,$FE" 12037 LAX$(4,3)="LAX $FE " 12040 LAX$(5,1)="LAX ZERO,X " 12045 LAX$(5,2)=".BYT $D7,$FB" 12047 LAX$(5,3)="LAX $FB,X " 12050 LAX$(6,1)="LAX (IND,X)" 12055 LAX$(6,2)=".BYT $C3,$FB" 12057 LAX$(6,3)="LAX ($FB,X)" 12060 LAX$(7,1)="LAX (IND,Y)" 12065 LAX$(7,2)=".BYT $D3,$FB" 12067 LAX$(7,3)="LAX ($FB,Y)" 12100 ASO$(1,1)="ASO ABS " 12105 ASO$(1,2)=".BYT $0F,$FE,$02" 12107 ASO$(1,3)="ASO $02FE " 12110 ASO$(2,1)="ASO ABS,X " 12115 ASO$(2,2)=".BYT $1F,$FB,$02" 12117 ASO$(2,3)="ASO $02FB,X" 12120 ASO$(3,1)="ASO ABS,Y " 12125 ASO$(3,2)=".BYT $1B,$FB,$02" 12127 ASO$(3,3)="ASO $02FB,Y" 12130 ASO$(4,1)="ASO ZERO " 12135 ASO$(4,2)=".BYT $07,$FE" 12137 ASO$(4,3)="ASO $FE " 12140 ASO$(5,1)="ASO ZERO,X " 12145 ASO$(5,2)=".BYT $17,$FB" 12147 ASO$(5,3)="ASO $FE,Y " 12150 ASO$(6,1)="ASO (IND,X)" 12155 ASO$(6,2)=".BYT $03,$FB" 12157 ASO$(6,3)="ASO ($FB,X)" 12160 ASO$(7,1)="ASO (IND,Y)" 12165 ASO$(7,2)=".BYT $0B,$FB" 12167 ASO$(7,3)="ASO ($FB,Y)" 12200 RLA$(1,1)="RLA ABS " 12205 RLA$(1,2)=".BYT $2F,$FE,$02" 12207 RLA$(1,3)="RLA $02FE " 12210 RLA$(2,1)="RLA ABS,X " 12215 RLA$(2,2)=".BYT $3F,$FB,$02" 12217 RLA$(2,3)="RLA $02FB,X" 12220 RLA$(3,1)="RLA ABS,Y " 12225 RLA$(3,2)=".BYT $3B,$FB,$02" 12227 RLA$(3,3)="RLA $02FB,Y" 12230 RLA$(4,1)="RLA ZERO " 12235 RLA$(4,2)=".BYT $27,$FE" 12237 RLA$(4,3)="RLA $FE " 12240 RLA$(5,1)="RLA ZERO,X " 12245 RLA$(5,2)=".BYT $37,$FB" 12247 RLA$(5,3)="RLA $FB,X " 12250 RLA$(6,1)="RLA (IND,X)" 12255 RLA$(6,2)=".BYT $23,$FB" 12257 RLA$(6,3)="RLA ($FB,X)" 12260 RLA$(7,1)="RLA (IND,Y)" 12265 RLA$(7,2)=".BYT $33,$FB" 12267 RLA$(7,3)="RLA ($FB,Y)" 12270 RLA$(8,1)="RLA IMM " 12275 RLA$(8,2)=".BYT $2B,$55" 12277 RLA$(8,3)="RLA #$55 " 12300 INS$(1,1)="INS ABS " 12305 INS$(1,2)=".BYT $EF,$FE,$02" 12307 INS$(1,3)="INS $02FE " 12310 INS$(2,1)="INS ABS,X " 12315 INS$(2,2)=".BYT $FF,$FB,$02" 12317 INS$(2,3)="INS $02FB,X" 12320 INS$(3,1)="INS ABS,Y " 12325 INS$(3,2)=".BYT $FB,$FB,$02" 12327 INS$(3,3)="INS $02FB,Y" 12330 INS$(4,1)="INS ZERO " 12335 INS$(4,2)=".BYT $E7,$FE" 12337 INS$(4,3)="INS $FE " 12340 INS$(5,1)="INS ZERO,X " 12345 INS$(5,2)=".BYT $F7,$FB" 12347 INS$(5,3)="INS $FB,X " 12350 INS$(6,1)="INS (IND,X)" 12355 INS$(6,2)=".BYT $E3,$FB" 12357 INS$(6,3)="INS ($FB,X)" 12360 INS$(7,1)="INS (IND,Y)" 12365 INS$(7,2)=".BYT $F3,$FB" 12367 INS$(7,3)="INS ($FB,Y)" 12400 LSE$(1,1)="LSE ABS " 12405 LSE$(1,2)=".BYT $4F,$FE,$02" 12407 LSE$(1,3)="LSE $02FE " 12410 LSE$(2,1)="LSE ABS,X " 12415 LSE$(2,2)=".BYT $5F,$FB,$02" 12417 LSE$(2,3)="LSE $02FB,X" 12420 LSE$(3,1)="LSE ABS,Y " 12425 LSE$(3,2)=".BYT $5B,$FB,$02" 12427 LSE$(3,3)="LSE $02FB,Y" 12430 LSE$(4,1)="LSE ZERO " 12435 LSE$(4,2)=".BYT $47,$FE" 12437 LSE$(4,3)="LSE $FE " 12440 LSE$(5,1)="LSE ZERO,X " 12445 LSE$(5,2)=".BYT $57,$FB" 12447 LSE$(5,3)="LSE $FB,X " 12450 LSE$(6,1)="LSE (IND,X)" 12455 LSE$(6,2)=".BYT $43,$FB" 12457 LSE$(6,3)="LSE ($FB,X)" 12460 LSE$(7,1)="LSE (IND,Y)" 12465 LSE$(7,2)=".BYT $53,$FB" 12467 LSE$(7,3)="LSE ($FB,Y)" 12500 RRA$(1,1)="RRA ABS " 12505 RRA$(1,2)=".BYT $6F,$FE,$02" 12507 RRA$(1,3)="RRA $02FE " 12510 RRA$(2,1)="RRA ABS,X " 12515 RRA$(2,2)=".BYT $7F,$FB,$02" 12517 RRA$(2,3)="RRA $02FB,X" 12520 RRA$(3,1)="RRA ABS,Y " 12525 RRA$(3,2)=".BYT $7B,$FB,$02" 12527 RRA$(3,3)="RRA $02FB,Y" 12530 RRA$(4,1)="RRA ZERO " 12535 RRA$(4,2)=".BYT $67,$FE" 12537 RRA$(4,3)="RRA $FE " 12540 RRA$(5,1)="RRA ZERO,X " 12545 RRA$(5,2)=".BYT $77,$FB" 12547 RRA$(5,3)="RRA $FB,X " 12550 RRA$(6,1)="RRA (IND,X)" 12555 RRA$(6,2)=".BYT $63,$FB" 12557 RRA$(6,3)="RRA ($FB,X)" 12560 RRA$(7,1)="RRA (IND,Y)" 12565 RRA$(7,2)=".BYT $73,$FB" 12567 RRA$(7,3)="RRA ($FB,Y)" 12600 AXS$(1,1)="AXS ABS " 12605 AXS$(1,2)=".BYT $8F,$FE,$02" 12607 AXS$(1,3)="AXS $02FE " 12610 AXS$(2,1)="AXS ZERO " 12615 AXS$(2,2)=".BYT $87,$FE" 12617 AXS$(2,3)="AXS $FE " 12620 AXS$(3,1)="AXS ZERO,Y " 12625 AXS$(3,2)=".BYT $97,$FB" 12627 AXS$(3,3)="AXS $FB,Y " 12630 AXS$(4,1)="AXS (IND,X)" 12635 AXS$(4,2)=".BYT $83,$FB" 12637 AXS$(4,3)="AXS $FB,X " 12640 AXS$(5,1)="STZ ABS " 12645 AXS$(5,2)=".BYT $9C,$FE,$02 12647 AXS$(5,3)[178]"STZ $02FE " 12650 AXS$(6,1)[178]"ALR IMM " 12655 AXS$(6,2)[178]".BYT $4B,$07" 12657 AXS$(6,3)[178]"ALR #$07 " 12660 AXS$(7,1)[178]"SAX IMM " 12665 AXS$(7,2)[178]".BYT $CB,$20" 12667 AXS$(7,3)[178]"AXS #$20 " 12670 AXS$(8,1)[178]"TAD ABS " 12675 AXS$(8,2)[178]".BYT $8B,$20" 12677 AXS$(8,3)[178]"TAD #$20 " 12680 [142]